home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / CD32 / CD32_Support / s / isomount < prev   
Encoding:
AmigaDOS Script File  |  1993-10-18  |  2.5 KB  |  71 lines
  1. .key isofilename/a,unitnum/k
  2. .def unitnum "2"
  3. .bra {
  4. .ket }
  5.  
  6. ; Mounts an ISO image file using modified Dillon's fmsdisk.device
  7. ; and the Amiga L:cdfilesystem (V40)
  8. ; 
  9. ; Usage: isomount isofilename  (unitnum is optional)
  10. ; 
  11. ; Default unit 2, device name ISO2:
  12. ; Will use next higher unit numbers/names if a unit is already mounted.
  13. ;
  14. ; Warning - I would not suggest mounting an ISO image with exact
  15. ; match CD in a CD-ROM drive attached to same system.  Might be
  16. ; identical enough to confuse/hand Workbench.
  17. ; 
  18. ; Technical details taken care of by this script, FYI....
  19. ; Modified fmsdisk.device 1.1 (CAS 7/93) will look for
  20. ; ENV:FMSUnit<n> where n is digit of the unit and will read the
  21. ; ENV variable for the full path to the disk image file.
  22. ; If ENV variable is not found, falls back to old method:
  23. ; ISO image must be named Unitn where n is digit of the Unit below
  24. ; (for example Unit2) and the ISO image file must reside at FMS:
  25. ; (an asignment)
  26. ;
  27.  
  28. if not exists {isofilename}
  29.    echo "isomount: File *"{isofilename}*" not found... Aborting"
  30.    quit
  31. endif
  32.  
  33. setenv tmpu{$$} {unitnum}
  34.  
  35. lab loop
  36. assign >NIL: ISO$tmpu{$$}: exists
  37. if warn ; this unitnum is available
  38.    skip postloop
  39. else ; try next unitnum
  40.    setenv tmpu{$$} `eval $tmpu{$$} + 1`
  41.    skip loop back
  42. endif
  43. lab postloop
  44.  
  45. echo  >t:isomountlist$tmpu{$$} "ISO$tmpu{$$}:"
  46. echo >>t:isomountlist$tmpu{$$} "FileSystem    = L:CDFileSystem"
  47. echo >>t:isomountlist$tmpu{$$} "Device        = fmsdisk.device"
  48. echo >>t:isomountlist$tmpu{$$} "Unit        = $tmpu{$$}"
  49. echo >>t:isomountlist$tmpu{$$} "Flags        = 0"
  50. echo >>t:isomountlist$tmpu{$$} "Surfaces    = 1"
  51. echo >>t:isomountlist$tmpu{$$} "SectorsPerTrack    = 1"
  52. echo >>t:isomountlist$tmpu{$$} "SectorSize    = 2048"
  53. echo >>t:isomountlist$tmpu{$$} "Mask        = 0x7ffffffe"
  54. echo >>t:isomountlist$tmpu{$$} "MaxTransfer    = 0x100000"
  55. echo >>t:isomountlist$tmpu{$$} "Reserved    = 0"
  56. echo >>t:isomountlist$tmpu{$$} "Interleave    = 0"
  57. echo >>t:isomountlist$tmpu{$$} "LowCyl        = 0"
  58. echo >>t:isomountlist$tmpu{$$} "HighCyl        = 0"
  59. echo >>t:isomountlist$tmpu{$$} "Buffers        = 5"
  60. echo >>t:isomountlist$tmpu{$$} "BufMemType    = 0"
  61. echo >>t:isomountlist$tmpu{$$} "StackSize    = 1000"
  62. echo >>t:isomountlist$tmpu{$$} "Priority    = 10"
  63. echo >>t:isomountlist$tmpu{$$} "GlobVec        = -1"
  64. echo >>t:isomountlist$tmpu{$$} "DosType        = 0x43443031"
  65. echo >>t:isomountlist$tmpu{$$} "Mount        = 1"
  66. echo >>t:isomountlist$tmpu{$$} "#"
  67.  
  68. setenv FMSUnit$tmpu{$$} "`which {isofilename} NORES`"
  69. echo "Mounting `getenv FMSUnit$tmpu{$$}` as ISO$tmpu{$$}:"
  70. mount ISO$tmpu{$$}: from t:isomountlist$tmpu{$$}
  71.